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MODULE CREWIN ( Eecaiaiak wah teat 
IDENT 2 Piventt J 
BEGIN 


i 

PITTIITILILILILL LLL LI LLL LLL Li Lii iii tiiiiiliiiiiiiii iii 
'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'@ DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 

'w ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF Sven bicuee AND a THE 


Ssssss 


AUEWN OO OONAULS WN OO 


® 
® 
* 
t 
w 
a 
® 
® 
i RO R ILABLE > 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
‘ % 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
® 
® 
® 
® 
® 
® 
® 


F 
tt AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!* CORPORATION. 


!# DIGITAL ASSUMES NO RESPONS I 


IBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 

S NOT SUPPLIED BY DIGITAL. 

PITITITITILLI LLL LLL LLL LLL LLL LLL LLL LiL iLL LLL 
ee 
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; FACILITY: F11ACP Structure Level 1 
ABSTRACT: 
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a ka ak a a a a a a a dd dd dd od I I I IOOOO 
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6 ! 

7 o : This routine creates and initializes a file window. 

$ $$ ENVIRONMENT : 
40 0040 i STARLET operating system, including privileged system services 

41 0041 : and internal exec routines. This routine must be called 

4 Baeg : in kernel mode. 
aoe St i 
gO 
rts 004? AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Dec-1976 17:10 

9 0948 : MODIFIED BY: 

51 $084 i v03-001 LMP0018 L. Mark Pilant 31-Mar-1982 13:13 
38 0938 : Modify to use a local of the window complete flag. 

4 541 v02-001 LMP000S L. Mark Pilant, 29-Dec-1981 14:40 
36 0086 Add support for Cathedral windows. 

05 i 
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CREWIN 16-Sep-1984 00:55:27 VAX-11 Bliss=32 V4.0-742 P 3 
yoo" 1 730b-1 982 93:33:36 DISKSVMSMASTER:CF11A.SRCICREWIN.B32;1 >" (2) | 


GLOBAL ROUTINE CREATE_WINDOW (ACCTL, SIZE, HEADER, PID, FCB) = 


————————— 


lee 


ARGS: address of file header 


7 
6 1 
A! FUNCTIONAL DESCRIPTION: 
4 This routine creates a file access window. 
74 ; CALLING SEQUENCE: 
Ne : CREATE_WINDOW (ARG1, ARG2, ARG3, ARG4, ARGS) 
7 9 INPUT PARAMETERS: 
78 9 ARG1: access control word (from FIB, usually) 
79 4 ARG2: size of window in # of pointers 

9 

9 


COOGGCOCOCOGOCOOOCOOCOOOOOOOoOoO 


PRIMARY_WINDOW : REF BBLOCK; address of the primary window 


EXTERNAL 
CURRENT_VCB : REF BBLOCK, ! VCB in process 
CURRENT_UCB : REF BBLOCK; 


EXTERNAL ROUTINE 
ALLOCATE ! allocate dynamic memory 
TURN_WINDOW; ! window turner routine 


! Compute the size of the window. If fixed, allocate it and turn it to 
' map VBN 1. If a maximal window is requested (indicated by a size of “1, 


UCB in process 


i 
i | 
i | 
| 
i 
i 
! 
| 
' 
7 | 

80 ! 

81 ! ARG4: PID of accessor 

Ht ; ARGS: address of file FCB 

84 3 i IMPLICIT INPUTS: | 

85 39 : CURRENT_VCB: address of VCB of volume in process 

Hy te CURRENT_UCB: address of UCB of disk in process 

88 04 ' OUTPUT PARAMETERS: | 

89 04 ! NONE 

90 04 ! 

91 04 ! IMPLICIT OUTPUTS: 

3g 04 ! NONE 

9% 040 ‘ 

94 0407 ' ROUTINE VALUE: 

ib) 0408 ‘ address of window 

96 0409 ! 

97 0 ' SIDE EFFECTS: 

98 1 ! window block created | 

99 g ‘ 

01 4 

4 5 

0 6 

04 7 MAP 

05 8 HEADER : REF BBLOCK, ' file header arg 

08 3 FCB : REF BBLOCK; ! FCB arg 

08 1 LOCAL d ; 

09 § WINDOW_SIZE, ' actual size of window 

19 Z WINDOW : REF BBLOCK, ' window created 

1 5 

ig F 

i 

1 

19 0 

18 

19 

$0 

1 
22 
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19-308 p-1984 + 99:33 


14-Sep-1984 
the window turner will allocate the window. 
WINDOW shies SIZE; 
IF WINDOW SIZE EQL 0 
THEN WINDOO: SIZE = .CURRENT_VCBCVCB$B_WINDOWJ; 
IF_ .WINDOW SIZE NEQ -1 
THE 


S 


ig? VAX=11 
6 DISKSVM 


N 

BEGIN 

IF .WINDOW SIZE GTRU MAX_WINDOW 

THEN WINDO@_ SIZE = MAX_WINDOW; 

IF .WINDOW SIZE LSSU MIN WINDOW 

THEN WINDOOW SIZE = MIN_WINDOW; 

WINDOW = ALCOCATE (,WINDOW_SIZE * 6 + WCBSC_LENGTH, WCB_TYPE); 
THEN TURN_WINDOW (.WINDOW, .HEADER, 1, 1); 

ELSE 


WINDOW = TURN_WINDOW (0, .HEADER, 1, 1); 
! Init cells within the window 


U0 


RIMARY WINDOW = .WINDOW; 
UNTIL -QINDOW EQL 0 


BEGIN 
WINDOWLWCBSL_PID) = .PID; 

= - CURRENT UCB; 
-ACCTL<O, 16>; 


WINDOW uces NDOWCWCBSV_WRITEAC); 
IF -HEADER vet “Re aDcHEEK THEN WIRDOWLWCBSV 
Ie HEADER FHISV-WRITCHECK] THEN WINDOW ucBSY 
= .WINDOWDWCBSL_LINKI; 


ENDS 
RETURN .PRIMARY_WINDOW; 


accessor PID 

original device UCB 

access control bits 

FCB address 

read access always allowed 
! write access sometimes 


READCK 
“WRITECK] = i: 


END; ! end of routine CREATE_WINDOW 


0004 00000 

50 08 AC 00 00002 
09 1 si 

51 00096 CF 00 0000 
50 4 Al 9A 00600 


TLE cone 

ENT 4-000\ 

TRN CURRENT VCB, CURRENT UCB 
TRN ALLOCATE, TURN _WINDOO 
-PSECT SCODES,NOWRT,2 


-ENTRY CREATE WINDOW, Save R2 


Rov. S12E. QINDOW_S1ZE 
MOVL CURRENT NT_VCB 
MOVZBL “Uihbou. SIZE 


42 
RC 
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ed IS 18-Sep-1984 90:33:67 VAX-11 Bliss-32_ V4,0-742 Page 5 
14-Sep-1984 12:29:26 DISKSVMSMASTER:CF11A.SRCICREWIN.B32; 1 (2) 


FFFFFFFF © 8F 0 D4 1 1$: cMPL WINDOW_SIZE, #1 3 0443 
00000050 = 8F 8 pt 1A CHPL WINDOW_SIZE, #80 + 0446 
50 50 BF OA 3 MOVZBL #80, WINDOW_SIZE + 0447 
9 3 i 2$: Ist WINDOW SIZE + 0448 
50 1 0 B MOVL #1, WINDOW SIZE + 0449 
1 OD 3$ PUSHL #1 + 0450 
50 6 £4 0 MULL2 #6, RO : 
30 AO SF PUSHAB 48(RO) ; 
00006 cf 9 F 00 CALLS #2, ALLOCATE ; 
2 D B MOVL RO. WINDOW : 
1 13 00 BEQL 6 5$ : 0451 
1 DD 0004 PUSHL #1 > 0452 
1 DD 0004 PUSHL #1 ; 
0c AC DD 0004 PUSHL HEADER : 
52 DD 00047 PUSHL WINDOW : 
00006 CF 04 FB 00049 CALLS #4, TURN_WINDOW ; 
11,°=«11 OO4E BRB 5% + 0443 
3 DD 00050 4$ PUSHL #1 ; 0455 
1 DD 00052 PUSHL #1 : 
0c AC DD 00054 PUSHL HEADER : 
7E D4 00057 CLRL. = (SP) F 
00006 ct 04 FB 0059 CALLS #4, TURN_WINDOW : 
2 0 DO 0005€ MOVL RO, WINDOW : 
51 52 (+0 90061 5$ MOVL § WINDOW, PRIMARY_WINDOW + 0460 
50 0c AC DO 00064 MOVL HEADER. RO + 0470 
36 DS 00068 6$ TSTL WINDOW + 0461 
8 13 OO06A BEQL «6=so9'S ; 
OC A 10 AC 00 0006C MOVL PID, 12(WINDOW) + 0464 
10 A 00006 CF DO 00071 MOVL CURRENT_UCB, 16(WINDOW) + 0465 
14 «OA 04 AC BO 90077 MOVW  ACCTL, 20(WINDOW) > 0466 
18 OA 14 AC 00 0007C¢ MOVL FCB, 24(WINDOW) + 0467 
OB OA 01 88 00081 BISB2 #1, 11(WINDOW) : 0468 
0B A 01 01 15 Ae FO 00085 INSV 21(WINDOW), #1, #1, 11(WINDOW) + 0469 
04 o¢ A 0 él 008C¢ BC #3, Je¢R0) 7$ + 0470 
1 A 2 88 00091 BISB2 «#2, : (WINDOW) : 
04 oc A 4 Fi 0095 7$: BC #4. 12(R0), 8S : 0471 
ae 9 8 009A BISB2 #32, 20(WINDOW) : 
5 20 A2 D Oo 8$: OVL 32(WINDOW), WINDOW + 0472 
ca 11 OOOA BRB é$ : 0461 
50 1 DO OO0OA4 9$: MOVL PRIMARY_WINDOW, RO 3; 0475 
04 000A7 RET + 0477 


; Routine Size: 168 bytes, Routine Base: S$CODE$ + 0000 
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v04-000 - 
; PSECT SUMMARY 

; Name Bytes Attributes 

; SCODES 168 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


; eoceen== Symbols -------- Pages Processing 
: File Total Looded Percent Mapped ime 
; -$255$DUA28: CSYSLIBILIB.L32;1 18619 15 0 1000 00:02.0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:CREWIN/OBJ=OBJ$:CREWIN MSRC$: CREWIN/UPDATE=(ENH$: CREWIN) 


; Size: 168 code + 0 data bytes 
; Run Time :07. 

; Elapsed Tine: 8 
3; Lines/CPU Min 


So 
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o- 
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4 
; Lexenes/CPU-Rin: 12786 
: "Y Used: 98 pages 
; a ation Complete 
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